#lang racket
;note.rkt
;v0.0.0
(require rsound rsound/piano-tones)
(provide note%)

(define note%
  (class object%
    (init-field (son (piano-tone 80)))
    (init-field (type "noire"))
    (init-field (animation-type "animation-changer-couleur"))
    (init-field (image-type "balle"))
    
    (define/public (afficher)
      (printf "[note% : ~a, ~a, ~a, ~a]\n"
              son type animation-type image-type))
    
    (super-new)))

(printf "note chargée\n")